What is the problem in my codes?

[ii128]

What is the problem in my codes?


Set cmd = New ADODB.Command
Set rsRate = New ADODB.Recordset
If cn.State = adStateClosed Then
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Dod\DOD.mdb"
cn.Open
End If

cmd.ActiveConnection = cn
cmd.CommandText = "select * from information"
cmd.CommandType = adCmdText

rsRate.Open cmd
rsRate.AddNew

 

[chiph]

Try this:
[tt]
cmd.ActiveConnection = cn
cmd.CommandText = "select * from information"
cmd.CommandType = adCmdText

set rsRate = cmd.Open
[/tt]

 

[chiph]

Whoops - cut & paste error:

Last line should be:

set rsRate = cmd.Execute

Chip H.