遇到一个小毛病

Public Class search
    Public Shared con As Data.SqlClient.SqlConnection
    Public Shared ada As OleDbDataAdapter
    Public Shared ds As Data.DataSet

    Public Shared Sub init()
        con = New Data.SqlClient.SqlConnection()
        con.ConnectionString = "Server=(Local);UID=sa;PWD=sa;database=hotell;"
        con.Open()

        ada = New OleDbDataAdapter
        ada.SelectCommand = New OleDbCommand
        ada.InsertCommand = New OleDbCommand
        ada.UpdateCommand = New OleDbCommand
        ada.DeleteCommand = New OleDbCommand

        ada.SelectCommand.Connection = con        ada.InsertCommand.Connection = con        ada.UpdateCommand.Connection = con        ada.DeleteCommand.Connection = con类型“System.Data.SqlClient.SqlConnection”的值无法转换为“System.Data.OleDb.OleDbConnection”。
红色标为错误区

--------------------编程问答-------------------- 怎么没人答啊   --------------------编程问答-------------------- Public Shared ada As SqlDataAdapter

Dim cmd As SqlCommand

访问ACCESS和SQL SERVER是不同的
--------------------编程问答-------------------- http://msdn.microsoft.com/zh-cn/library/a6cd7c08(v=VS.80).aspx --------------------编程问答-------------------- 你的con 对象是 Data.SqlClient.SqlConnection
而你的ada.SelectCommand和其它几个命令对象却是Data.OleDb.OleDbCommand的，
连接对象要统一，统一改成 Data.OleDb.OleDbConnection，注意看下面的注释部分和红色部分



Public Class search

     'Public Shared con As Data.SqlClient.SqlConnection

    Public Shared con As Data.OleDb.OleDbConnection

    Public Shared ada As OleDbDataAdapter

    Public Shared ds As Data.DataSet



    Public Shared Sub init()

        'con = New Data.SqlClient.SqlConnection()

        con = New Data.OleDb.OleDbConnection()

        con.ConnectionString = "Server=(Local);UID=sa;PWD=sa;database=hotell;"

        con.Open()



        ada = New OleDbDataAdapter

        ada.SelectCommand = New OleDbCommand

        ada.InsertCommand = New OleDbCommand

        ada.UpdateCommand = New OleDbCommand

        ada.DeleteCommand = New OleDbCommand





        ada.SelectCommand.Connection = con

        ada.InsertCommand.Connection = con

        ada.UpdateCommand.Connection = con

        ada.DeleteCommand.Connection = con

--------------------编程问答-------------------- 我用的是SQL server 2000 现在改的怎么改请教一下 --------------------编程问答-------------------- 与数据库没有什么关系，是你的连接对象定义不一致造成的，你按我上面写的那样改一下试试，应该就可以了 --------------------编程问答--------------------



  Public Shared con As OleDb.OleDbConnection

  con = New OleDb.OleDbConnection

--------------------编程问答-------------------- 顶，直接都用 OLEDB

补充：.NET技术 ,  VB.NET