help with importing from excel

[vbpadawan]

In my code, I import data from an excel worksheet into a SQL table. My code has worked fine up until yesterday. I haven't made any changes to my code and my customer says that they haven't made any format changes to the worksheet. The problem is when I open the recordset with my excel data, the last column (which is a time field) is NULL in the recordset. I looked in the worksheet and there is data in all of the records in this column. Here is my code:

Private Sub ImportData(ByVal sFile As String)
On Error Resume Next
Dim oRS As ADODB.Recordset
Dim oField As ADODB.Field

Dim sConn As String
Dim sXL As String
Dim sDriver As String
Dim sSheet As String
Dim strRates As String

Dim bAddRecord As Boolean
Dim cnt As Long

Dim rsRates As New ADODB.Recordset

sDriver = "278"

sXL = sFile

sSheet = "Sheet1"

sConn = "Driver={Microsoft Excel Driver (*.xls)}; " & _
"DBQ=" & sXL & "; " & _
"DriverID=" & sDriver

Set oRS = New ADODB.Recordset
oRS.Open "SELECT * FROM `" & sSheet & "$`", _
sConn, _
adOpenStatic, _
adLockReadOnly
do until ors.EOF
Debug.Print oRS!col1& " " & oRS!col2
& " " & oRS!col3 & " " & oRS!col4 & " " &
oRS!col5 & " " & oRS!col6 & " " &
oRS!code & " " & oRS!EffectiveDate
& " " & oRS!effectivetime

oRS.MoveNext
Loop

End With

oRS.Close
Set oRS = Nothing

MousePointer = vbDefault

End Sub

 

[Swi]

Have a look at this link. It deals with ADO but the symptom is the same.

http://support.microsoft.com/default.aspx?scid=kb;en-us;194124

Swi