Private Sub btnRegistrierung_Click()
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
	cmd.ActiveConnection = CurrentProject.Connection
	cmd.CommandText = "spVVR_testproc"
	cmd.CommandType = adCmdStoredProc
	cmd.Execute
end sub