Private Sub Command1_Click()
Adodc1.ConnectionString = "provider=Microsoft.jet.OLEDB.4.0;Persist security info= False; Data source=" & App.Path & "\fyxx.mdb"
Adodc1.CursorLocation = adUseClient
= adCmdText
Adodc1.RecordSource = "select * from czfy where 区域 = '" & Combo1.Text & "'"
Adodc1.Refresh
End Sub
Private Sub Form_Load()
Dim con As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sql As String
Dim conn As String
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=fyxx.mdb;Persist Security Info=False"
sql = "select 区域 from qy"
rst.Open sql, con, adOpenKeyset, adLockOptimistic
Combo1.Clear
Do While Not rst.EOF
Combo1.AddItem (Trim(rst(0)))
 rst.MoveNext
Loop
rst.Close
con.Close
End Sub
Private Sub MS1_DblClick()
Form3.Show
End Sub
有什么可以优化下的吗？

虽然数据库不是我的强项～
但至少排版可以帮你优化下～

Private Sub Command1_Click()
    Adodc1.ConnectionString = "provider=Microsoft.jet.OLEDB.4.0;Persist security info= False; Data source=" & App.Path & "\fyxx.mdb"
    Adodc1.CursorLocation = adUseClient
     = adCmdText
    Adodc1.RecordSource = "select * from czfy where 区域 = '" & Combo1.Text & "'"
    Adodc1.Refresh
End Sub

Private Sub Form_Load()
Dim con As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sql As String
Dim conn As String

    con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=fyxx.mdb;Persist Security Info=False"
    sql = "select 区域 from qy"
    rst.Open sql, con, adOpenKeyset, adLockOptimistic

    Combo1.Clear

    Do While Not rst.EOF
        Combo1.AddItem (Trim(rst(0)))
        rst.MoveNext
    Loop

    rst.Close
    con.Close

End Sub

Private Sub MS1_DblClick()
    Form3.Show
End Sub

[ 本帖最后由 wube 于 2011-7-8 10:59 编辑 ]