Visual Basic - Llenar DataGrid de un BD con SQL

Hola, gracias de antemano.
Tengo un problema que no se como mostrar datos en mi DataGrid, me he mirado el foro y no he podido solucionar el problema, rogaria que me ayudara alguien, por favor.
Tengo este codigo pero no me muestra la informacion solo renglones en blanco... ¿?¿?

Private Sub Form_Load()
Dim conex As Object
Dim rs As recordset
Set rs = New recordset
Dim sqlstr As String
Set conex = Abrir_Conexion
rs.Source = "SELECT * FROM Tbl_Rel_UnitatDptment"
rs.ActiveConnection = conex
rs.CursorType = adOpenStatic
rs.CursorLocation = adUseClient
rs.LockType = adLockOptimistic
rs.Open
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub

Rogaria que alguien me pusiera codigo para mostrar la info de la BD en la DataGrid via mail, o lo que fuera, me urge... Muchas gracias!!!
Ciao dsd Barcelona

Te paso unos ejemplos a tu correo!!!!