Sql sætninger

Er det her den rigtige/hurtigste/letteste måde at gøre det på? Eller hvad?

   
    Function SelectSql() As System.Data.DataSet
        Dim connectionString As String = "server='localhost'; user id='sa'; password=''; Database='Test'"
        Dim sqlConnection As System.Data.SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection(connectionString)
       
        Dim queryString As String = "SELECT [Users].[Bruger], [Users].[Adgangskode], [Users].[Points], [Users].[Dato],"& _
" [Users].[Alder], [Users].[test], [Users].[Sol] FROM [Users]"
        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)
       
        Dim dataAdapter As System.Data.SqlClient.SqlDataAdapter = New System.Data.SqlClient.SqlDataAdapter(sqlCommand)
        Dim dataSet As System.Data.DataSet = New System.Data.DataSet
        dataAdapter.Fill(dataSet)
       
        Return dataSet
    End Function
   
       
    Function InsertSql(ByVal bruger As String, ByVal adgangskode As String, ByVal points As Integer, ByVal dato As Date, ByVal alder As Integer, ByVal test As System.Guid, ByVal sol As String) As Integer
        Dim connectionString As String = "server='localhost'; user id='sa'; password=''; Database='Test'"
        Dim sqlConnection As System.Data.SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection(connectionString)
       
        Dim queryString As String = "INSERT INTO [Users] ([Bruger], [Adgangskode], [Points], [Dato], [Alder], [test], "& _
"[Sol]) VALUES (@Bruger, @Adgangskode, @Points, @Dato, @Alder, @test, @Sol)"
        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)
       
        sqlCommand.Parameters.Add("@Bruger", System.Data.SqlDbType.VarChar).Value = bruger
        sqlCommand.Parameters.Add("@Adgangskode", System.Data.SqlDbType.VarChar).Value = adgangskode
        sqlCommand.Parameters.Add("@Points", System.Data.SqlDbType.Int).Value = points
        sqlCommand.Parameters.Add("@Dato", System.Data.SqlDbType.DateTime).Value = dato
        sqlCommand.Parameters.Add("@Alder", System.Data.SqlDbType.Int).Value = alder
        sqlCommand.Parameters.Add("@test", System.Data.SqlDbType.UniqueIdentifier).Value = test
        sqlCommand.Parameters.Add("@Sol", System.Data.SqlDbType.VarChar).Value = sol
       
        Dim rowsAffected As Integer = 0
        sqlConnection.Open
        Try
            rowsAffected = sqlCommand.ExecuteNonQuery
        Finally
            sqlConnection.Close
        End Try
       
        Return rowsAffected
    End Function
   
       
    Function DeleteSql(ByVal bruger As String) As Integer
        Dim connectionString As String = "server='localhost'; user id='sa'; password=''; Database='Test'"
        Dim sqlConnection As System.Data.SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection(connectionString)
       
        Dim queryString As String = "DELETE FROM [Users] WHERE ([Users].[Bruger] = @Bruger)"
        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)
       
        sqlCommand.Parameters.Add("@Bruger", System.Data.SqlDbType.VarChar).Value = bruger
       
        Dim rowsAffected As Integer = 0
        sqlConnection.Open
        Try
            rowsAffected = sqlCommand.ExecuteNonQuery
        Finally
            sqlConnection.Close
        End Try
       
        Return rowsAffected
    End Function
   
       
    Function UpdateSql(ByVal bruger As String, ByVal adgangskode As String, ByVal points As Integer, ByVal dato As Date, ByVal alder As Integer, ByVal test As System.Guid, ByVal sol As String) As Integer
        Dim connectionString As String = "server='localhost'; user id='sa'; password=''; Database='Test'"
        Dim sqlConnection As System.Data.SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection(connectionString)
       
        Dim queryString As String = "UPDATE [Users] SET [Bruger]=@Bruger, [Adgangskode]=@Adgangskode, [Points]=@Points"& _
", [Dato]=@Dato, [Alder]=@Alder, [test]=@test, [Sol]=@Sol"
        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)
       
        sqlCommand.Parameters.Add("@Bruger", System.Data.SqlDbType.VarChar).Value = bruger
        sqlCommand.Parameters.Add("@Adgangskode", System.Data.SqlDbType.VarChar).Value = adgangskode
        sqlCommand.Parameters.Add("@Points", System.Data.SqlDbType.Int).Value = points
        sqlCommand.Parameters.Add("@Dato", System.Data.SqlDbType.DateTime).Value = dato
        sqlCommand.Parameters.Add("@Alder", System.Data.SqlDbType.Int).Value = alder
        sqlCommand.Parameters.Add("@test", System.Data.SqlDbType.UniqueIdentifier).Value = test
        sqlCommand.Parameters.Add("@Sol", System.Data.SqlDbType.VarChar).Value = sol
       
        Dim rowsAffected As Integer = 0
        sqlConnection.Open
        Try
            rowsAffected = sqlCommand.ExecuteNonQuery
        Finally
            sqlConnection.Close
        End Try
       
        Return rowsAffected
    End Function