Protected Sub btnSenden_Click(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles btnSenden.Click
 
        Dim conn As New SqlConnection("Data Source=DEGSQL01;Initial" & _
          "Catalog=Helpdesk;User Id=sa;Password=password")
 
        conn.Open()
 
        Dim cmd As New SqlCommand()
 
        cmd.Connection = conn
        cmd.CommandText = "INSERT INTO Problem (Rechnername)" & "VALUES('" & _
          txtPCName.Text & "')"
        cmd.ExecuteNonQuery()
 
        conn.Close()
End Sub
End Class