简单问题,在线等待
小弟是新手,有如下语名,运行时提示“form子名语法错误”,请高手指点
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As ADODB.Recordset
'Dim sql As String
'sql = "select * from level"
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=f:\内部共享\waterlevel.mdb;Persist Security Info=False"
conn.Open
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = conn
rs.Open ("select * from level")
Set DataGrid1.DataSource = rs
End Sub