Помогите перевести с VBA на C#

Нужно перевести с VBA на C# (в VS 2005) 3 процедуры, помогите пожалуста!

Заранее благодарю!

а где они??

Вот первая из них:

Function Импорт1() As Integer
On Error GoTo Импорт1_Err
 
    Dim i, j As Integer
    Dim qdf As QueryDef, rst As Recordset, dbs As Database, so As String, s As String
 
    Set dbs = CurrentDb
        
    so = "select * from table_1"
    Set qdf = dbs.CreateQueryDef("", so)
    qdf.ODBCTimeout = 180
    qdf.Parameters(0) = [Forms]![Импорт]![ПолеДатаНачало]
    qdf.Parameters(1) = [Forms]![Импорт]![ПолеДатаКонец]
    Set rst = qdf.OpenRecordset(dbOpenDynaset, dbReadOnly)
    If Not rst.EOF Then
        rst.MoveLast
        j = rst.RecordCount
    Else
        j = 0
        i = MsgBox("нет данных для импорта", vbOK, "Сообщение")
        GoTo Импорт1_Exit
    End If
 
    s = "импортировать " & Trim(Str(j)) & " записей"
    i = MsgBox(s, vbOKCancel + vbQuestion, "Сообщение")
    If i <> vbOK Then
        GoTo Импорт1_Exit
    End If
 
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "qry_001", acNormal, acEdit
 
    DoCmd.SetWarnings True
    
 
    i = MsgBox("Выполнено”, vbInformation, "Сообщение")
 
 
Импорт1_Exit:
    Exit Function
 
Импорт1_Err:
    MsgBox Error$
    Resume Импорт1_Exit
 
End Function

Вот вторая:

Function Импорт3 () As Integer
On Error GoTo Импорт3_Err
 
    Dim qdf As QueryDef, rst As Recordset, dbs As Database, so As String, s As String
    Dim ff As Integer, i, j As Integer
 
    Set dbs = CurrentDb
        
    s = "select chk_flag from tbl001 where N=1"
    Set rst = dbs.OpenRecordset("tbl001", dbOpenSnapshot)
    rst.MoveFirst
    ff = rst.Fields("chk_flag").Value
        
    If ff = 0 Then
        i = MsgBox("Проверка не выполнена!", vbInformation, "Сообщение")
        GoTo Импорт3_Exit
    Else
        s = " update tbl001 set chk_flag = 0 where N=1"
        dbs.Execute s, dbFailOnError
    End If
        
    DoCmd.OpenQuery "qry_002", acNormal, acEdit
        
    so = "select * from qry_vw"
    Set qdf = dbs.CreateQueryDef("", so)
    qdf.ODBCTimeout = 180
    Set rst = qdf.OpenRecordset(dbOpenSnapshot)
    
    If Not rst.EOF Then
        rst.MoveLast
        j = rst.RecordCount
        Beep
        i = MsgBox("Обнаружены ошибки!", vbInformation, "Сообщение")
    Else
        j = 0
    End If
 
    Debug.Print s, qdf.RecordsAffected
    Set qdf = Nothing
 
    If j = 0 Then
        DoCmd.SetWarnings False
        DoCmd.OpenQuery "qry_04", acNormal, acEdit
        DoCmd.OpenQuery "qry_05", acNormal, acEdit
        DoCmd.SetWarnings True
    Else
        GoTo Импорт3_Exit
    End If
    
    i = MsgBox("Выполнено", vbInformation, "Сообщение")
 
Импорт3_Exit:
    Exit Function
 
Импорт3_Err:
    MsgBox Error$
    Resume Импорт3_Exit
 
End Function

А третья аналогичная этим 2м, если поможете с этими, то надеюсь с третьей разберусь сама)

Сообщение отредактировано: <julia> - 24.11.08, 14:20

под какой оффис все это должно быть?? или это самостоятельная программа должна быть?
и не хватет инфы. что это за запросы:
"qry_001"
"qry_002"
"qry_003"
"qry_004"
"qry_005"
?

изначально в Аксесе 2000 была создана база с формами и процедурами, которые выполняются по нажатию на кнопки. Мне надо сделать аналогичную программу на C#, к которой подсоединена аксесовская база(тоже Аксесс 2000),в которой только таблицы и запросы, а все процедуры соответственно написать на С#.
А запросы "qry001"-"qry005" это запросы на исполнение(добавление\удаление даввных в таблицы\из таблиц).

Готов взяться за проект
номер ICQ: 48ноль9644пять6
отзывы тут
http://forum.sources.ru/index.php/topic,14760.0.html
Благодарность для Mikefreelance