Dim query As String
Dim conn As New SqlConnection(ConnectionString)
Dim com As New SqlCommand("SELECT * FROM dbo.PERSON ", conn)
 
da_xalluser.MissingSchemaAction = MissingSchemaAction.AddWithKey
 
da_xalluser.SelectCommand = com
da_xalluser.Fill(Dt_xuser)
 
        user_info(0).Item("ORT") = Fld_Ort.Text
        user_info(0).Item("TEL1") = Fld_Tel1.Text
        user_info(0).Item("TEL2") = Fld_Tel2.Text
        user_info(0).Item("MOBIL") = Fld_Mobil.Text
        user_info(0).Item("EMAIL") = Fld_email.Text
 
Dim cb As New SqlCommandBuilder(da_xalluser)
da_xalluser.Update(Dt_xuser)