Visual Basic - Necesito ayuda con el DBGrid... Porfa!!!

por favor... ayudenme tengo un porblema con el dbgrid... lo que pasa es que quiero crear una tabla en una BD y llenarla con una consulta SQL, y que los resultados que contiene la tabla nueva (Temporal) se desplieguen en el Dbgrid... lo estoy haciendo con el siguiente codigo, que lo hace, pero solo lo hace cuando estoy ejecutando el programa con F8, pero si lo ejecuto normal no lo hace... por favor ayudenme...

Private Sub cmdOk_Click()
Dim SQL As String

Codigo = txtCode.text
On Error Resume Next
Dbs.Execute "DROP TABLE Temporal"
SQL = "SELECT Movil.Conductor, Valores.Valor_Carrera FROM Valores, Movil WHERE Valores.codigo=" & Codigo & " AND Movil.Conductor=(SELECT Conductor From Movil Where Codigo=" & Codigo & ")"
Dbs.Execute "CREATE TABLE Temporal (Conductor TEXT, Valor LONG);"
Dbs.Execute "INSERT INTO Temporal (Conductor, Valor) " & SQL
Set RS = Dbs.OpenRecordset("Temporal")
If RS.RecordCount > 0 Then
datLink.RecordSource = "Temporal"
dbgData.Columns(0).Caption = "Conductor"
dbgData.Columns(0).DataField = "Conductor"
dbgData.Columns(1).Caption = "Valor"
dbgData.Columns(1).DataField = "Valor"
datLink.Refresh
Else
MsgBox "El Movil ingresado no contiene carreras ingresadas.", vbInformation + vbOKOnly, App.ProductName
txtCode.text = ""
txtCode.SetFocus
End If
datLink.Refresh
End Sub

cualquier sugerencia sera bien recibida... Gracias!!!