数据库连接

Question

既然是代码没有问题那很可能是你的select语句的问题了检查一下数据库名字，检索的字段吧！◎！！！

Answer 1

除了，楼上提到的，
 Dim MyConnection As New SqlClient.SqlConnection(Application("ConnectString"))
 是否有问题？
 数据库连接串：Application("ConnectString") = ？

Answer 2

我把你的代码改成如下，我这边已调试通过  
        Dim cnnstr As String = "data source=WZSSWZ;initial catalog=tfmsdb;Password=1234567;persist security info=true;user id=sa;workstation id=WZSSWZ;packet size=4096"
        Dim MyConnection As New SqlClient.SqlConnection(cnnstr)
        Dim MasterTechPara As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter("select top 10 * from leave_card", MyConnection)
        Dim MasterMainPart As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter("select top 10  * from clerk", MyConnection)
        Dim myDataSet As DataSet = New DataSet()
        Dim i As Int16
        MyConnection.Open()
        MasterTechPara.Fill(myDataSet, "gg")
        MasterMainPart.Fill(myDataSet, "gg")