If DataGridView1.CurrentRow.Cells(3).Value = "да" Then ' если в поле Group значение "да", то
nres = DataGridView1.CurrentRow.Cells(0).Value ' nres переменная которая хранит название ресурса т.е значение поля Resurs
nalf = DataGridView1.CurrentRow.Cells(6).Value 'nalf хранит список букв из которых генерируется пароль т.е значение поля Alfavit
nsym = DataGridView1.CurrentRow.Cells(1).Value ' nsym хранит цифровое значение, обозначающее максимальную длину пароля
Dim parol1 As String
Dim pwd As String = pass99(nsym, nsym) 'генерируется пароль, от x до y символов длиной
parol1 = pwd
Dim cmd As New OleDbCommand()
Dim Conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.oledb.12.0; Data source=" + bpath) ' Переменная для подключения базы
cmd.Connection = conn 
Conn.open
For i As Integer = 0 To k-1
  'добавляем запрос
  cmd.CommandText &= String.Format("UPDATE Resurses SET GrpPwd = @GrpPwd1{0} WHERE Resurs = @Resurs1{0};", i)
  'добавляем параметры запроса
  cmd.Parameters.Add(String.Format("@GrpPwd1{0}", i), OleDbType.WChar).Value = parol1
  cmd.Parameters.Add(String.Format("@Resurs1{0}", i), OleDbType.Integer).Value = nres
Next
'код выполнения запроса
cmd.ExecuteNonQuery()
Conn.close

Public Function pass99(ByVal minLength As Integer, ByVal maxLength As Integer) As String
        Dim charset As String = nalf
        Dim r As New Random()
        Dim lenPass As Integer = r.Next(minLength, maxLength)
        Dim str As String = String.Empty
        For i As Integer = 0 To lenPass - 1
            str += charset(r.Next(0, charset.Length))
        Next
        Return str
    End Function

If DataGridView1.CurrentRow.Cells(3).Value = "да"
nres = DataGridView1.CurrentRow.Cells(0).Value '
nalf = DataGridView1.CurrentRow.Cells(6).Value 
nsym = DataGridView1.CurrentRow.Cells(1).Value 
Dim parol1 As String
Dim pwd As String = pass99(nsym, nsym) 'генерируется пароль, от x до y символов длиной
parol1 = pwd
Dim cmd As New OleDbCommand()
cmd.CommandText = ""
Dim Conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.oledb.12.0; Data source=" + bpath) ' Переменная для подключения базы
cmd.Connection = conn 
Conn.open
For i As Integer = 0 To k-1 'с такой логикой, это бесполезный цикл
  'добавляем запрос
  cmd.CommandText &= String.Format("UPDATE Resurses SET GrpPwd = @GrpPwd1{0} WHERE Resurs = @Resurs1{0};", i)
  'добавляем параметры запроса
  cmd.Parameters.Add(String.Format("@GrpPwd1{0}", i), OleDbType.WChar).Value = DataGridView1CurrentRow.Cells(0).Value
  cmd.Parameters.Add(String.Format("@Resurs1{0}", i), OleDbType.Integer).Value = DataGridView1CurrentRow.Cells(0).Value
Next
cmd.ExecuteNonQuery()
Conn.close
end if