With frmStatResult
            If .StatResultcn.State = 1 Then
                Set .DataGrid1.DataSource = Nothing
                .StatResultrs.Close
                .StatResultcn.Close
            End If            .StatResultcn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & GDatabasepath & ";Persist Security Info=False"
            .StatResultrs.CursorLocation = adUseClient
            .StatResultrs.Open "select [position]. [position],                 [personalinf].* from [position],[personalinf] where [position].[NO]=" & txtNO.Text & " and [position].[NO]=[personalinf].[NO]", .StatResultcn, adOpenDynamic, adLockReadOnly
            Set .DataGrid1.DataSource = .StatResultrs
            .Show
        End With
结果显示出来的字段名是能不能在不修改数据库的基础上,把datagrid中显示的字段名改掉
可否通过SQL语句来实现