Option Explicit On
Imports Microsoft.SqlServer.Server
Imports System.Data.SqlClient
Imports System.Data
Imports System
 
Public Class Form1
 
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
 
 
 
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim con As SqlConnection = GetConnection()
        Dim sql As String = "Insert into dbo.tblTest(Vorname, Name,)" & "Values(" & _
          "'Karl','Dall')"
        Dim cmd As New SqlCommand(sql, con)
 
 
        Try
            cmd.ExecuteNonQuery()
        Catch ex As Exception
            Throw (ex)
 
        End Try
 
 
 
        con.Close()
 
    End Sub
End Class

der Hund ist Dir im Sturme treu - der Mensch nicht mal im Winde
\"Kampfhunde\" Liebhaber