Public Function SaveValuesToDb(ByVal Values() As Integer, Optional ByVal user _
  As String = "Grant") As Integer
        Dim i As Integer
        Dim j As Integer
        Dim builder As New System.Text.StringBuilder
        Dim SqlInsertCommand As String = ""
        Dim SqlInsertCommand1 As String = ""
        Dim Connectionstring As String = "Data" & _
          "Source=.\SQLEXPRESS;AttachDbFilename='C:\Dokumente und" & _
          "Einstellungen\ju.IPSEN\Eigene Dateien\Visual Studio" & _
          "2005\Projects\HelloWorld\HelloWorld\Soduko.mdf';Integrated" & _
          "Security=True;User Instance=True"
        Dim errTExt() As String
        Dim PrimKey As Integer
 
        '******************
        'Auslesen des letzten Tabelleneintrages und incrementieren desselbigen
        Dim sqlConnection1 As New SqlConnection(Connectionstring)
        Dim cmd As New SqlCommand
        Dim returnValue As Object
 
        cmd.CommandText = "SELECT UID FROM Tbl_Speichern order by UID desc"
        cmd.CommandType = CommandType.Text
        cmd.Connection = sqlConnection1
 
        sqlConnection1.Open()
 
        returnValue = cmd.ExecuteScalar()
        PrimKey = CInt(returnValue) + 1
 
        sqlConnection1.Close()
 
        '********************
        'Zusammensetzen des Insertbefehls mit dem StringBuilder
        For j = 1 To UBound(Values)
            If j = 1 Then
                builder.Append("'" & PrimKey & "','" & user & "','" & Now & _
                  "','" & Values(j) & "'")
            Else
                builder.Append(",'" & Values(j) & "'")
            End If
        Next
 
        SqlInsertCommand = builder.ToString
 
        '******************** 
        ' Ausführen des Insertbefehls
        Using connection As SqlConnection = New SqlConnection(Connectionstring)
            connection.Open()
 
            ' Start a local transaction.
            Dim sqlTran As SqlTransaction = connection.BeginTransaction()
 
            ' Enlist the command in the current transaction.
            Dim command As SqlCommand = connection.CreateCommand()
            command.Transaction = sqlTran
 
            Try
                command.CommandText = _
                "INSERT INTO Tbl_Speichern VALUES(" & SqlInsertCommand & ")"
                command.ExecuteNonQuery()
                sqlTran.Commit()
                MsgBox("Done")
            Catch ex As SqlException
                ReDim errTExt(ex.Errors.Count)
                For i = 0 To ex.Errors.Count - 1
                    errTExt(i) = ex.Errors(i).Message
                    If Not errTExt(i) Is Nothing Then
                        MsgBox("An exception occurred:" & vbCrLf & errTExt(i))
                    End If
                Next
                sqlTran.Rollback()
            End Try
        End Using
 
    End Function

**********************************************************************
* Glauben ist gut aber ab und zu sollte man auch was wissen *
**********************************************************************