VB代码转变为VC的代码,该怎么处理

VB代码转变为VC的代码
请问如何将下面的VB代码转变为VC的代码:


Private Sub Form_Load()

   Dim Cnn As New ADODB.Connection
   

   Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= 系统测试.mdb"
   Cnn.Open Connstr
   Set rs = Cnn.Execute("select * from S值表")

   Text1.Text = s
   Adodc1.ConnectionString = Connstr
   Adodc1.CommandType = adCmdText

     sql = "SELECT * FROM 股票系统测试表 where 时间 = " & s

             
  
  Adodc1.RecordSource = sql


  Adodc1.Refresh
    Set Text1.DataSource = Adodc1
    Text1.DataField = "时间"
       For i = 1 To MSHFlexGrid1.Rows - 1
       MSHFlexGrid1.Row = i
       MSHFlexGrid1.Col = 3
       If MSHFlexGrid1.Text > 0 Then
       MSHFlexGrid1.CellForeColor = vbRed
       MSHFlexGrid1.Col = 2
       MSHFlexGrid1.CellForeColor = vbRed
       MSHFlexGrid1.Col = 5
       MSHFlexGrid1.CellForeColor = vbRed
       MSHFlexGrid1.Col = 1
       MSHFlexGrid1.CellForeColor = vbRed
  Else
       If MSHFlexGrid1.Text < 0 Then
       MSHFlexGrid1.CellForeColor = vbGreen
       MSHFlexGrid1.Col = 2
       MSHFlexGrid1.CellForeColor = vbGreen
       MSHFlexGrid1.Col = 6
       MSHFlexGrid1.CellForeColor = vbGreen
       MSHFlexGrid1.Col = 1
       MSHFlexGrid1.CellForeColor = vbGreen
       End If
    End If
  Next

End Sub


------解决方案--------------------

_T("select top 25 * from Exat_0  ORDER BY fd  DESC where fd =" &K )

请问楼主，这是个什么东东
不会用 CString 和 CString::Format() 吗
------解决方案--------------------
仅供参考

//Private Sub Form_Load()

void Form_Load()

{

        //Dim Cnn As New ADODB.Connection

    _ConnectionPtr Cnn = new _ConnectionPtr;

            //Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= 系统测试.mdb"

    Connstr = _T("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= 系统测试.mdb");

    //Cnn.Open Connstr

    Cnn.Open Connstr;

    //Set rs = Cnn.Execute("select * from S值表")

    Set rs = Cnn.Execute(_T("select * from S值表"));

        //Text1.Text = s

    Text1.Text = s;

    //Adodc1.ConnectionString = Connstr

    Adodc1.ConnectionString = Connstr;

    //Adodc1.CommandType = adCmdText

    Adodc1.CommandType = adCmdText;

        //sql = "SELECT * FROM 股票系统测试表 where 时间 = " & s

    sql = _T("SELECT * FROM 股票系统测试表 where 时间 = ") & s;

                //Adodc1.RecordSource = sql

    Adodc1.RecordSource = sql;

            //Adodc1.Refresh

    Adodc1.Refresh;

    //Set Text1.DataSource = Adodc1

    Set Text1.DataSource = Adodc1;

    //Text1.DataField = "时间"

    Text1.DataField = _T("时间");

    //For i = 1 To MSHFlexGrid1.Rows - 1

    for(i = 1;i <=MSHFlexGrid1.Rows - 1;i ++)

    {

        //MSHFlexGrid1.Row = i