Thanks for help but still i have some prob
i wrote the code below:
VBSTART
Function GetCustomerName()
Dim SQLString as string
dim rsCustomers
dim MyDB
set MyDB = CreateObject("ADODB.Connection")
MyDB.Open "DSNCUS"
SQLString = "select CustomerName from Customers"
set rsCustomers = MyDB.Execute(SQLString)
If Not rsCustomers.EOF then
GetCustomerName = rsCustomers.Fields("CustomerName")
Else
GetCustomerName = "Not Found"
End if
MyDB.Close
End Function
VBEND
VBEval>GetCustomerName(),CustomerName
MessageModal>The Customer Name Is : %CRLF% %CRLF% %CustomerName%
but an error occur that
Specifeid Window "MyDB=CreateObject("ADODB.Connection")"Not present.....
after this when i click on Ignor then another error occur "Missing IF/ENDIF
now lz tell me how do correct these errors
regards,
aysha
________
buy iolite vaporizer