Dim rs As New ADODB.RecordSet
   Dim valFirma As String
   If chkFirma.Value = Checked Then
        valFirma = "j"
   Else
        valFirma = "n"
   End If
   rs.Open "INSERT INTO kundenstammanschrift " _
                    & "(Name,Vorname,Firma,Straße,PLZ,Ort) " _
                   & " VALUES (" _
                    & "'" & rtbName.Text & "'," _
                    & "'" & rtbVorname.Text & "'," _
                    & "'" & valFirma & "'," _
                    & "'" & rtbStraße.Text & "'," _
                    & "'" & rtbPLZ.Text & "'," _
                    & "'" & rtbOrt.Text & "')", rsMuellerDB
      rs.close