Visual Basic - Como imprimir un registro en BV

Como puedo mandar a imprimir un reporte en VB del registro actual, sin que se imprima el reporte de todos los registros que tengo en mi base de datos, Les agradeceria mucho de su ayuda.
Gracias de antemano.

Si quieres que se imprima el registro actual debes de hacer una consulta primero seria
Dim Rec As ADODB.Recordset
Dim sql As String
Dim cnbase As ADODB.Connection
Sub Imprimir()
Conectar 'Procedimiento
sql="Select Nombre,Apellido1,Apellido2 From Alumnos Where Codigo ='" & Clave & "' Order By Nombre"
Registro 'Procedimiento
Rec.Open sql, cnbase 'Variable de Conexion
If Rec.RecordCount > 0 Then
Printer.Font.Size = 10
Printer.Font = "Arial"
Printer.Print Rec!Nombre +" "+ Rec!Apellido1 +" "+ Rec!Apellido2
Printer.EndDoc
End If
End Sub
Sub Registro()
If Rec.State = adStateOpen Then Rec.Close
Rec.CursorLocation = adUseClient
Rec.CursorType = adOpenDynamic
Rec.LockType = adLockOptimistic
End Sub
Sub Conectar()
Dim Ruta As String
Dim NomBase As String
NomBase = "BD.mdb" 'Nombre de la BD de ACCESS
Ruta = App.Path & "\" & NomBase 'Direccion donde se encuentra tu BD de ACCESS
Conexion = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Ruta & ""
Set cnbase = New ADODB.Connection
cnbase.ConnectionString = Conexion
cnbase.Open Conexion
Set Rec = New ADODB.Recordset
End Sub