Unexpected VB Error

[mightycpa]

Hi,

This VB code causes two errors:

Function GetTimeEntry(SerNum)
Dim SQLString
Dim AcctNum
Dim SerNum

set MyDB = CreateObject("ADODB.Connection")
MyDB.Open "GATER"

SQLString = "SELECT time.* FROM [time] where time.serial = '" & SerNum & "';"
'MsgBox SQLString

set rsTime = MyDB.Execute(SQLString)

If Not rsTime.EOF then
AcctNum = rsTime.Fields("account")
Else
AcctNum = "Not Found"
End if

MyDB.Close

GetTimeEntry = AcctNum
End Function


but if I take out the DIM statements, I'm oK.

Here are the VBscript runtime errors:

Error 1041, Line 5, Column 5, "name redefined"
Error 13, Line 2, Column 0 "Type mismatch: 'GetTimeEntry'"

Get rid of the dims, and the code runs fine.... why?

Should I care?

Tx,

George

[Bob Hansen]

Off the top of my head, untested, not used VB in a while.......:

Have you tried?

1.
set SQLString = "Select ........

And/Or

2.
Does SQLString need a semicolon ";" at the end?


I think the second message is because SQLString failed in the first message. I think using "set" will correct the first error, and that fix will eliminate the second error message.

[support]

Hi,

The problem is you have declared SerNum twice. Remove the Dim SerNum statement. It is already declared in the function header. SerNum is the variable which contains the value passed to the function.

[mightycpa]

Your support is great, thanks.