用到了，记录一下，郁闷了一下午的东西
grdChr_Shiharai.DataSource = App.DB.Query("Select * from TB_Kubun where int_Kubun_ID = '1111' ", Nothing)
grdChr_Shiharai.DisplayMember = "var_Kubun_mei_jp"
grdChr_Shiharai.ValueMember = "var_Kubunchi1"
显示值
Debug.Print("Cell's value is" & Utils.GetString(Me.grdKonyu.Rows(0).Cells(1).Value))
Debug.Print("3Cell's value is" & Utils.GetString(Me.grdKonyu.Rows(0).Cells(3).Value))
哎 ，回过头一看，咋就这么简单呢