我的代码
Dim connstr As String
        connstr = "workstation id=CCF-938414DE78E;packet size=4096;user id=sa;initial catalog=my_db;persist security info=False"
        Dim conn As New SqlConnection(connstr)
        conn.Open()
        MessageBox.Show("已经建立连接", "连接提示框")
        Dim commstr As String
        Dim comm As New SqlCommand
        comm.Connection = conn
        comm.CommandType = CommandType.Text
        comm.CommandText = "select empid,name,department,age from employees"
        Dim dataapt As New SqlDataAdapter
        Dim sa As DataSet
        dataapt.SelectCommand = comm
         dataapt.Fill(sa)              @@提示这句有错误 
        Dim i As Integer
        Dim s As String

        For i = 0 To sa.Tables(0).Rows.Count - 1
            s = sa.Tables(0).Rows(i).ItemArray(0) + " "
            s = sa.Tables(0).Rows(i).ItemArray(1) + " "
            s = sa.Tables(0).Rows(i).ItemArray(2) + " "
            s = sa.Tables(0).Rows(i).ItemArray(3) + " "
            Label1.Text = Label1.Text + s + " " + vbCrLf
        Next

        conn.Close()
各位高手帮忙啊!