改成下面这样：
创新互联自2013年创立以来，先为庐江等服务建站，庐江等地企业，进行企业商务咨询服务。为庐江企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
Dim cmdtext As String = "Update 用户信息表 Set 密码='" txt密码new.Text "',用户='" txt用户名.Text "' Where ID=" Int(Val(UserID))
这里以OERACLE数据库为例 ：
Provider=MSDAORA;data source =主机名:1521/ORCL;User ID=system;Password=ORACLE;Unicode=True
Dim myConn As Data.OleDb.OleDbConnection
myConn = New System.Data.OleDb.OleDbConnection()
myConn.ConnectionString = strCon
myConn.Open()
直接在代码里连接就可以啦。
首先本地的数据库要启动起来。然后直接再点net里的配置文件里配置数据库的访问，然后就可以发文了数据库的地址，用户名和密码。
Option Explicit On
Option Strict On
Imports System
Imports System.Data
Imports System.Data.SqlClient
Public Class Program
Public Shared Sub Main()
Dim connectionString As String = _
"Data Source=(local);Initial Catalog=Northwind;" _
"Integrated Security=true"
' Provide the query string with a parameter placeholder.
Dim queryString As String = _
"SELECT ProductID, UnitPrice, ProductName from dbo.Products " _
"WHERE UnitPrice @pricePoint " _
"ORDER BY UnitPrice DESC;"
' Specify the parameter value.
Dim paramValue As Integer = 5
' Create and open the connection in a using block. This
' ensures that all resources will be closed and disposed
' when the code exits.
Using connection As New SqlConnection(connectionString)
' Create the Command and Parameter objects.
Dim command As New SqlCommand(queryString, connection)
command.Parameters.AddWithValue("@pricePoint", paramValue)
' Open the connection in a try/catch block.
' Create and execute the DataReader, writing the result
' set to the console window.
Try
connection.Open()
Dim dataReader As SqlDataReader = _
command.ExecuteReader()
Do While dataReader.Read()
Console.WriteLine( _
vbTab "{0}" vbTab "{1}" vbTab "{2}", _
dataReader(0), dataReader(1), dataReader(2))
Loop
dataReader.Close()
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
Console.ReadLine()
End Using
End Sub
End Class
这是我在vs2010中微软自带的MSDN示例代码里面拷的，是关于ADO.net连接sql的操作。
希望对你有帮助。 如果你还需要其他的，我也可以再拷给你看。