极其简单……
Public ConnStr As String = "尺亮Dsn=WFReport;uid=cac_reader;pwd=cac_reader"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
漏渣 Dim ds As New DataSet
Dim conn As OdbcConnection
Dim da As OdbcDataAdapter
conn = New OdbcConnection
conn.ConnectionString = ConnStr
conn.Open()
Dim strsql As String = "SELECT * 返困悄from A"
da = New OdbcDataAdapter(strsql, conn)
Dim strDSPaking As String = "DSPaking"
da.Fill(ds, strDSPaking)
End Sub