Visual Basic.NET - Urgente DatagidView!!!!

Estimados amigos, le pido su colaboracion a ver si puedo resolver este enigma que tego, estoy migrando de visual basic 6 y tengo problemas en el enlace del datagridview con una conexion adodb por codigo, el problema es que no me muestra los datos contenidos en la base de datos. asi es el codigo

Private Sub Visual_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Record = New ADODB.Recordset
Record.LockType = ADODB.LockTypeEnum.adLockOptimistic
Record.CursorLocation = ADODB.CursorLocationEnum.adUseClient
Record.CursorType = ADODB.CursorTypeEnum.adOpenDynamic
Record.Open("Select * from Asistencia order by Idcodigo", Conex)
With Me.DataGrid1
.DataSource = Nothing
.DataMember = ""
.Columns.Add("Nombre", "Nombre")
.Columns.Add("Dia", "Día")
.Columns.Add("Fecha", "Fecha")
.Columns.Add("Hora1", "Entrada 1")
.Columns.Add("Hora2", "Salida 1")
.Columns.Add("Hora3", "Entrada 2")
.Columns.Add("Hora4", "Salida 2")
.Columns("Nombre").DataPropertyName = "Nombre"
.Columns("Dia").DataPropertyName = "Dia"
.Columns("Fecha").DataPropertyName = "Fecha"
.Columns("Hora1").DataPropertyName = "Hora1"
.Columns("Hora2").DataPropertyName = "Hora2"
.Columns("Hora3").DataPropertyName = "Hora3"
.Columns("Hora4").DataPropertyName = "Hora4"
.DataMember = Record.DataMember
End With
End Sub

Por favor analizen lo que pasa y denme una respuesta a ver que me falta.