Function Gdatabind(ByVal Strsql As String, ByVal DataGrid1 As System.Object) As String
'该函数实现GRIDdata数据的绑定
'strsql 是传进来得SQL语句
'DataGrid1 为 DataGrid 对象
Dim conConnect As New OleDbConnection()
Dim dadadapter As OleDbDataAdapter
Dim dstdataset As DataSet
Dim StrConnstring As String
StrConnstring = "Provider=MSDAORA.1;Password=hrm;User ID=hrm;Data Source=hrm"
' Try
conConnect.ConnectionString = StrConnstring
dadadapter = New OleDbDataAdapter(Strsql, conConnect)
dstdataset = New DataSet()
dadadapter.Fill(dstdataset, "temptable")