Abrir Planilha do Excel usando VBA

Abrir planilha no excel com VBA

Mensagem : Olá!

Estou abrindo uma planilha no excel através de um formulário mas dá o seguinte erro:

Erro em tempo de execução '13' tipos incompatíveis. O código segue abaixo.

Dim db As Database

Dim rs As Recordset

Set db = OpenDatabase("C:\ s and Settings\izabel\Meus os\litombo.xls", False, False, "excel 8.0")

Set rs = db.OpenRecordset("Plan1$", dbOpenDynaset)-> "Erro acontece aqui"

While rs.EOF = False

If grade1.Row = grade1.Rows - 1 Then

grade1.Rows = grade1.Rows + 1

End If

grade1.Row = grade1.Row + 1

grade1.Col = 0

grade1.Text = rs("Número")

grade1.Col = 1

grade1.Text = rs("Volume")

rs.MoveNext

Wend