Protected Sub btnSenden_Click(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles btnSenden.Click
 
  Using conn As New SqlConnection("Data Source=DEGSQL01;Initial" & _
    "Catalog=Helpdesk;User Id=sa;Password=password")
 
    conn.Open()
 
    Dim cmd As New SqlCommand("INSERT INTO ...", conn)
    cmd.ExecuteNonQuery() 
  End Using   ' Hier werden die Ressourcen der Connection freigegeben
End Sub

Ralf