在VB中，怎么连接SQL数据库？使用的开发工具是Visual Studio 2010 ,连接字符串怎么写？

Dim Conn As New SqlConnection("server= 服务器IP地址;database='数据库名';uid='数据库用户名';pwd='密码'")

示例一：
Dim conn As New OleDb.OleDbConnection
Dim cmmd As New OleDb.OleDbCommand
conn.ConnectionString = "provider=sqloledb;Data Source=127.0.0.1;Initial Catalog=hindarerp;Persist Security Info=True;User ID=sa;Password=sa"
conn.Open()
cmmd.Connection = conn
cmmd.CommandText = "truncate table mytable"
cmmd.ExecuteScalar()
conn.Close()
示例二：
Dim conn As New OleDb.OleDbConnection
Dim cmmd As New OleDb.OleDbCommand
conn.ConnectionString = "provider=sqloledb;Data Source=127.0.0.1;Initial Catalog=hindarerp;Persist Security Info=True;User ID=sa;Password=sa"
conn.Open()
cmmd.Connection = conn
cmmd.CommandText = "exec Hd_bom_add_data" '执行存储过程
cmmd.ExecuteScalar()
conn.Close()

　　日暮掩柴扉。　　王孙归不归？