SQL-DMO Attach: The Physical File Name 'C:Program' May Be Incorrect.

i resive a error when i run script below i vbscript
What is wrong??

Function InstallDB()

Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_USERS = &H80000003
Const HKEY_CURRENT_CONFIG = &H80000005


Dim strComputer
Dim objRegistry
Dim strKeyPath
Dim strValueName
Dim strValue
Dim arrValues
Dim intValue
Dim strpath
Dim strpath2
Dim strDBServerName
Dim objSQLServer


strComputer = "."

Set objRegistry = GetObject("winmgmts:\" & strComputer & "
ootdefault: StdRegProv")

'Get String value
strKeyPath = "Software est"
strValueName = "PATH2"
objRegistry.GetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue

strpath = strValue & "Data est_Data.mdf , " & strValue & "Data est_log.ldf"
strDBServerName = "."
Set objSQLServer = CreateObject("SQLDMO.SQLServer")
objSQLServer.LoginSecure = False 'sql authetication
objSQLServer.Connect strDBServerName & " est", "sa", "test" MsgBox (strpath)
objSQLServer.AttachDB "test", strpath
End Function