vb6编个小事例 怎样连接sql数据苦 新手请达人指点.

'请老师帮忙我这前面要加什么代码怎么连上SQL数据库， 比如数据苦ip：192.168.0.23 用户名：sa  密码：123
 '还有P4这段SQL语句为什么不执行？
 '谢谢！
 Private Sub Command1_Click()
 Dim p(0) As String
 p1 = Text1.Text '输入的是起始日期2012-11-12
 p2 = Text2.Text '输入的是结事日期2012-11-13
 p3 = Text4.Text '输入的是站号比如 11
 p4 = "select count(send) from dbo.t_water_data where send=p3 between p1 and p2 order by time desc" '查询这12号到13号数招库里一共有多少条数据
 p5 = 288 - p4
 If p5 <> 0 Then
 Text3.Text = p5
 Else
 Text3.Text = "恭喜您此站点不缺数！"
 End If
 End Sub