Private Sub Form_Load() 'ADO SQL Server DSN-less 连接方式 （不用设置ODBC的DSN，通过以下代码Access窗体可以直接连接到后台SQL Server数据库！）
    Dim Rst1 As New ADODB.Recordset, SQLStr As String, myConnection As String
    SQLStr = "Select * From table1"
    myConnection = "Driver={SQL Server};Server=服务器;Database=数据库;Uid=用户名;Pwd=密码"
   
    Rst1.Open SQLStr, myConnection, adOpenStatic  'MSFlexgGrid控件的数据来源
        Set Me.Recordset = Rst1
    Rst1.Close
    Set Rst1 = Nothing
End Sub