Fehler im Script

Mahlzeit Kollegen,
da ich icht all zu bewandert bin mit VB Scripten möchte ich hier ein Frage loswerden. In dem unter aufgeführten Script ist ein Fehler, mit der Meldung das die Zeichenfolgen die farblich Makiert sind nicht abgeschlossen sind. Wie müsste es richtig aussehen?
Vielen Dank für Eure Hilfe

Mfg
Thomas B aus Rathenow

Option Explicit
Dim DBcur, DBsep, DBRec, sName, sAdr
Set DBsep = amw.SeparateDatabase
Set DBcur = amw.CurrentDatabase
DBsep.Name = H:\amw\DATEN\Test\Störung.dbf
If DBsep.DialogSelect = 1 Then
sName = CStr(DBsep.GetContentsByName(NAME1)) + ,
+cstr(DBSep.GetContentsByName(VORNAME))
sAdr = CStr(DBsep.GetContentsByName(PLZZ)) + ,
+cstr(DBSep.GetContentsByName(ORT))+,
+cstr(DBSep.GetContentsByName(STRASSE))
DBcur.lockrecord
DBcur.SetContentsByName KU_NAME, CStr(sName)
DBcur.SetContentsByName KU_ADR, CStr(sAdr)
DBcur.writerecord
DBcur.unlockrecord
DBcur.SeekRecordID DBcur.GetContentsByName(RECORDID)
End If
Set DBcur = Nothing
Set DBsep = Nothing

Hi

Option Explicit
Dim DBcur, DBsep, DBRec, sName, sAdr
Set DBsep = amw.SeparateDatabase
Set DBcur = amw.CurrentDatabase
DBsep.Name = H:\amw\DATEN\Test\Störung.dbf
If DBsep.DialogSelect = 1 Then
sName = CStr(DBsep.GetContentsByName(NAME1)) + ,+cstr(DBSep.GetContentsByName(VORNAME))
sAdr = CStr(DBsep.GetContentsByName(PLZZ)) + ,+cstr(DBSep.GetContentsByName(ORT))+,+cstr(DBSep.GetContentsByName(STRASSE))
DBcur.lockrecord
DBcur.SetContentsByName KU_NAME, CStr(sName)
DBcur.SetContentsByName KU_ADR, CStr(sAdr)
DBcur.writerecord
DBcur.unlockrecord
DBcur.SeekRecordID DBcur.GetContentsByName(RECORDID)
End If
Set DBcur = Nothing
Set DBsep = Nothing


Müsste besser passen.

Gruß, Michael