刚学习VB遇到问题请老师帮忙.....谢谢

'请老师帮忙我这前面要加什么代码怎么连上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