Public Class Form1
 
   private dt as new dataset
   private adp as new system.data.sqlclient.sqldataadapter
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
 
       Dim query As String
        Dim conn As New SqlConnection(ConnectionString)
 
 
        query = "SELECT dbo.PERSON.PERID, dbo.PERSON.ACTIVE, dbo.PERSON.ANRED," & _
          "dbo.PERSON.NNAME, dbo.PERSON.VNAME, dbo.PERSON.ADRESSE,  "
        query = query + "dbo.PERSON.PLZ, dbo.PERSON.ORT,  dbo.PERSON.TEL1," & _
        "dbo.PERSON.TEL2,  dbo.PERSON.MOBIL, dbo.PERSON.EMAIL," & _
        "dbo.PERSON.UNAME, dbo.PERSON.SEX "
        query = query + "FROM dbo.PERSON "
 
        da_alluser.SelectCommand = New SqlCommand(query, conn)
        da_alluser.Fill(Dt_user)
 
 
    end sub