Access“关闭fStudent窗体”VBA代码肿么写

<%
const Domain=""
const DbPath=""
on error resume next
Dim Conn,Connstr,Db
Db="shoushi.mdb" 这里是写你自己数据库的名字 不是表名
Set Conn=Server.CreateObject("Adodb.connection")
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &server.MapPath(Domain&DbPath&Db)
Conn.Open Connstr
if err then
Response.Write(err.description)
Response.End()
end if
%>

例如;远程SQLSERVER

连接字符串为:

Provider=SQLOLEDB.1;Password=密码;Persist Security Info=True;User ID=用户名;Initial Catalog=数据库名称Data Source=远程主机IP

可以用 offset来表示：
表示左边的单元： ActiveCell.Offset(0,-1)
表示右边的单元： ActiveCell.Offset(0,1)
表示上边的单元： ActiveCell.Offset(-1,0)
表示下边的单元： ActiveCell.Offset(1,0)
一般以 Cells(行号,列号).Offset(行偏移,列偏移) 或 ActiveCell.Offset(行偏移,列偏移)表示某个单元或当前单元的位移量。以指定单元或当前单元为准，偏移量1，表示行向下或列向右偏移1行（列）；偏移量-1，表示行向上或列向左偏移1行（列）。

你试试如下代码：
ACCESS中：
Sub xx() Dim xlApp as Object, wb As Object On Error Resume NExt Set xlApp = GetObject(,"Excel.Application") If Not xlApp Is Nothing Then Set Wb = xlApp.WorkBooks("a.xls") If Err.Number = 9 Then Set Wb = xlApp.WorkBooks.Open("D:\a.xls") Else Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True Set Wb = xlApp.WorkBooks.Open("D:\a.xls") End if End Suba.Xls工作簿中：
Private Sub WOrkbook_OPen() Call Sheet1.ppEnd SubSheet1工作表中 ：
Public Sub pp() Msgbox "Hello!!"End Sub

ado+sql语句

Set conn = CreateObject("adodb.connection")
conn.Open = "dsn=****** ;uid=;psw="
conn.Execute ("delete * from sheet2")

Set rs = CreateObject("adodb.recordset")
rs.CursorType = 3
rs.LockType = 3
sql_str = "select * from sheet2"
rs.Open sql_str, conn

i = 2

Do Until Sheets("导入数据").Cells(i, 1) = ""
rs.addnew
rs!zcbm = Sheets("导入数据").Cells(i, 1)
:
:

rs.Update
i = i 1
Loop
j = i - 2
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing

你要插入模块，插入模块了才能写代码，如下图：

用导入好啦，用vba写代码吧。