Dim tempConnection As SqlConnection
        Dim tempAdapter As SqlDataAdapter
        tempConnection = New SqlConnection()
        '设置连接字符串
        tempConnection.ConnectionString = "server=192.168.0.1;uid=sa;pwd=;database=Northwind"
        '打开一个连接
        tempConnection.Open()
        '执行一个查询
        tempAdapter = New SqlDataAdapter("select * from region", tempConnection)
        dim tempDataSet as new DataSet()
'将查询结果保存至一个DataSet
        tempAdapter.Fill(tempDataSet)
        tempConnection.Close()