Question

Private Sub Form_Load() Dim str As String str = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" &

Private Sub Form_Load()
Dim str As String
str = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\pmanager.mdb;"
Adodc1.ConnectionString = str
Adodc1.CursorLocation = adUseClient
Adodc1.CursorType = adOpenDynamic
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from 收费设置"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
'DataGrid1.AllowRowSizing = True
'DataGrid1.c
End Sub

Answer 1

dim s as string
定义一个名为s的string类型变量。

dim s
相当于
dim s as varient
表示定义一个可变类型的变量s。

Answer 2

Dim str As String '定义 str =MdbConn.Open End Sub Private Sub Form_Load( ) '设置datagrid Call str = App.Path 这个有目标吗？