'Verbindung zur Datenbank SQl Server herstellen und in ein datareader packen
        Dim conVUser As New System.Data.SqlClient.SqlConnection(constr2)
        Dim cmdVUser As New System.Data.SqlClient.SqlCommand("Select * from" & _
          "VUser", conVUser)
        Dim drVUser As Data.SqlClient.SqlDataReader
        conVUser.Open()
        drVUser = cmdVUser.ExecuteReader(Data.CommandBehavior.CloseConnection)
        'Verbindung zu Usertabelle herstellen
        Dim conUser As New SqlCeConnection(constr)
        conUser.Open()
        'datareader durchlaufen und in Tabelle User eintragen
 
        Console.WriteLine(drVUser.FieldCount)
        Do While drVUser.Read
            Dim cmdUser As New SqlCeCommand("insert into User (User_name," & _
              "user_password, user_mitarbeiter_id) values " _
            & "(@p1,@p2,@p3)", conUser)
            cmdUser.Parameters.AddWithValue("@p1", drVUser.Item( _
              "mitarbeiter_benutzername"))
            cmdUser.Parameters.AddWithValue("@p2", drVUser.Item( _
            "mitarbeiter_passwort"))
            cmdUser.Parameters.AddWithValue("@p3", drVUser.Item( _
            "mitarbeiter_id"))
            Try
                cmdUser.ExecuteNonQuery()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        Loop
        conUser.Close()