Dim cstring As String = "User ID=sa;pwd=a;Initial Catalog=zbb;Data Source=(local)"
        Dim con As New SqlClient.SqlConnection(cstring)

        Dim sql As String = "select * from manid"
        Dim myAdapter As New SqlClient.SqlDataAdapter(sql, con)
        Dim myDateset As New DataSet
        myAdapter.Fill(myDateset, "dbset")