Private Sub Command1_Click()
On Error GoTo errhan
Dim con As New ADODB.Connection
Dim rec As New ADODB.Recordset
con.Open "DRIVER=SQL Server;SERVER=192.168.0.57\SQLEXPRESS;PASSWORD=dynamite;UID=MyUserName;DATABASE=RCM"
rec.Open "SELECT * FROM data_live", con, adOpenStatic, adLockOptimistic
Set grd.DataSource = rec
Exit Sub
errhan:
MsgBox Err.Description
End Sub