Public Class cls_Login
  Private varUserID as String
  Private dbCon as new cls_Datenbank
  'weitere Variablen
 
  Public Sub create_Login()
        Dim cmd As New SqlCommand
        Dim strSQL As String
 
        strSQL = "Insert Into tbl_Login (UserID, ....) Values (@pam1,....)"
        cmd.Parameters.Add(New SqlParameter("@pam1", Data.SqlDbType.NVarChar, _
          200)).Value = UserID
 
        cmd.CommandText = strSQL
        cmd.Connection = dbCon.connect
        cmd.ExecuteNonQuery()
  End Sub
 
  Public Property UserID As String
        Get
            Return varUserID
        End Get
        Set(value As String)
            varUserID = value
        End Set
  End Property
 
 
End Class

 
Public Class cls_Anwender
    Inherits cls_Login
 
    Private varVorname as String
    Private dbCon as new cls_Datenbank
    'weitere Variablen
 
    Public Sub create_Anwender()
        Dim cmd As New SqlCommand
        Dim strSQL As String
 
        strSQL = "Insert Into tbl_Anwender (Vorname, ....) Values (@pam1,....)"
        cmd.Parameters.Add(New SqlParameter("@pam1", Data.SqlDbType.NVarChar, _
          200)).Value = UserID
 
        cmd.CommandText = strSQL
        cmd.Connection = dbCon.connect
        cmd.ExecuteNonQuery()
    End Sub
End Class

 
Private anw as new cls_Anwender
 
Protected Sub cmd_Reg_Click(sender As Object, e As EventArgs) Handles _
  cmd_Reg.Click
  anw.UserID = textfeld1
  anw.Vorname = textfeld2
 
  anw.create_Login()
  anw.create_Anwender()
 
End Sub