Hi, anybody can help me? I have a problem about datagrid can't show the data. I have try to debug but that have not any error message pop-up. The following code is me create to show the data in datagrid

Dim selectDrssql As String
Dim ds As ADODB.Recordset
Dim cnn As ADODB.Connection

Set cnn = New ADODB.Connection

cnn.Open ("Driver=MySQL ODBC 3.51 Driver; UID=pre;password=pre888;server=localhost;database= preshipment")

selectDrssql = "SELECT * FROM drs WHERE PRESTATUS = 'F'ORDER BY DELDATE,DRSNO"

Set ds = New ADODB.Recordset

With rsDrs
        .ActiveConnection = cnn
        .CursorLocation = adUseClient
        .CursorType = adOpenForwardOnly
        .LockType = adLockReadOnly
        .Source = selectDrssql
        .Open
        .ActiveConnection = Nothing
End With
Set dtgDRS.DataSource = ds

Thank.

Everything is all right up until the point where you start the with block. First of all, what is rsDrs? I'm assuming this was meant to be ds. With that assumption, you should have something like this:

With ds
   Set .ActiveConnection = cnn
   .CursorLocation = adUseClient
   .CursorType = adOpenForwardOnly
   .LockType = adOpenForwardOnly
   .Source = selectDrssql
   .Open
   Set .ActiveConnection = Nothing
End With

Set dtgDRS.DataSource = ds ' I'm assuming this is the datagrid?

I'm not sure you want to set the connection to Nothing and if you want to be able to edit the contents of the grid, you'll need to use a different CursorType and LockType. The biggest error I can see is that when you are assigning an object to a property, you need to use Set. In other words Set Something.Property = Object instead of Something.Property = Object.

See if that helps.