VB怎样远程控制SQLserver数据库？

[cowbaby]

开发环境：VB6.0
数据库关联模型：ADO
DBMS：SQLserver2000
数据库装在局域网里的另外一台服务器上（该服务器装的是SQLserver2000)
请问我怎样在自己的机器上写一个VB程序，来控制和查询这个数据库？？
我自己的机器没有安装SQLserver2000,连客户端都没有安装。

[射天狼]

Option Explicit

'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset

'在MSHFLEXGRID表格控件中显示查询到的内容
Private Sub Command1_Click()
If rs.State = adStateOpen Then rs.Close
rs.Open "SELECT * FROM USERPASSWORD", cn, adOpenDynamic, adLockOptimistic
Set MSHFlexGrid1.DataSource = rs
End Sub

'向数据库中添加数据
Private Sub Command2_Click()
If rs.State = adStateOpen Then rs.Close
rs.Open "SELECT * FROM USERPASSWORD", cn, adOpenDynamic, adLockOptimistic
rs.AddNew
rs!UID = txtUid.Text
rs!PWD = txtPwd.Text
rs!TRUENAME = txtName.Text
rs!CREATEDATE = Format(Now, "YYYY/MM/DD")
rs.Update

Command1.Value = True
End Sub

'从数据库中删除数据
Private Sub Command3_Click()
cn.Execute "DELETE FROM USERPASSWORD WHERE UID = '" & txtUid.Text & "'"
Command1.Value = True
End Sub

Private Sub Form_Load()
cn.ConnectionString = "Driver={SQL Server};SERVER=DataServer;DATABASE=zxzx;UID=information;PWD=information*&#"
cn.Open
'查询字符串可以上这里查
'http://www.connectionstrings.com/
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub

Private Sub MSHFlexGrid1_RowColChange()
With MSHFlexGrid1
MsgBox .TextMatrix(.Row, .Col)
End With
End Sub

[饮水需思源]

用ADO连接到有数据库的机器

[jinesc]

ADO +SQL语句

[jinesc]

http://jinesc.6600.org/myweb/disp.asp?idd=1183&room=10

找本TSQL的书看看就知道了

[cowbaby]

不好意思，各位大虾，我是VB新手，大家能说得清楚一点吗？
非常感谢！