ola gracias a todos los post, bueno.al base de datos esta en la misma carpeta asi es que la ubicacion esta bien, ya lo revise 
 
este es el codigo del boton imprimir  
 Código PHP:
    Private Sub Imprime_Click()
 On Error Resume Next
Dim BDCALIFICA As Database
Dim RSCalifica As Recordset
Set BDCALIFICA = OpenDatabase("C:\califica\califica.mdb")
Set RSCalifica = BDCALIFICA.OpenRecordset("califica")
SQL = "DELETE * from califica"
BDCALIFICA.Execute SQL
ElFin = 0
If Grilla_Apr.Rows < grilla_Rep.Rows Then
   ElFin = grilla_Rep.Rows - 1
Else
   ElFin = Grilla_Apr.Rows - 1
End If
'MsgBox (grilla_Rep.Rows)
'MsgBox (Grilla_Apr.Rows)
For I = 1 To ElFin
   RSCalifica.AddNew
   If I < Grilla_Apr.Rows Then
     MsgBox (I)
      Grilla_Apr.Row = I
      Grilla_Apr.Col = 1
      RSCalifica.Fields("Puntaje_a") = Trim(Grilla_Apr.Text)
      Grilla_Apr.Col = 2
      RSCalifica.Fields("nota_a") = Trim(Grilla_Apr.Text)
   End If
   If I < grilla_Rep.Rows Then
      grilla_Rep.Row = I
      grilla_Rep.Col = 1
      RSCalifica.Fields("Puntaje_r") = Trim(grilla_Rep.Text)
      grilla_Rep.Col = 2
      RSCalifica.Fields("nota_r") = Trim(grilla_Rep.Text)
   End If
   RSCalifica.Update
Next
RSCalifica.Close
BDCALIFICA.Close
RepCalifica.ReportFileName = "c:\califica\califica.rpt"
RepCalifica.Action = 1
End Sub 
    
  hice algunos arreglos y tampoco imprime pero si aparece este mensaje que dice q no se puede leer el reporte en cristal repor en visual basic 4, siendo q este programa est diseñado en este lenguaje , la idea es imprimir en pantalla , al hacer clik en el boton imprimir me mand los datos de unas notas de unos alumnos por pantalla , lueg ayi yo puedo imprimirlo si quiero, ojala me entiendan 
gracias y ojala me puedan ayudar