可以这样改
Dim rgd As Object = Forms("窗口1").Controls("RecordGrid1").Basecontrolrgd.Cols(0).style.Font = New Font("黑体", 15)